home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
XDRIVE.INT
< prev
next >
Wrap
Text File
|
1992-09-06
|
2KB
|
59 lines
(*****************************************************************************)
(* *)
(* filename : XDRIVE.PAS *)
(* author : Stefan Boether / Compuserve Id : 100023,275 *)
(* FidoNet : 2:242/200 *)
(* FidoNet : 2:243/91 *)
(* Internet: 100023.275@CompuServe.COM *)
(* Maus-Net: Stefan Böther @ HRO *)
(* system : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1 *)
(* changes : *)
(* when what who *)
(*---------------------------------------------------------------------------*)
(*****************************************************************************)
(* Description : An object for the drives in the computer *)
(*****************************************************************************)
{Header-End}
unit XDrive;
{$IFNDEF Windows} {$O+} {$ENDIF}
{$D-,L-}
interface
uses {$ifdef Windows} WinDos, DPMI, WObjects;
{$else} Dos, Objects;
{$endif}
const dcFloppy360 = 1;
dcFloppy720 = 2;
dcFloppy12 = 3;
dcFloppy144 = 4;
dcOtherFloppy = 5;
dcBernoulli = 6;
dcHardDisk = 7;
dcRamDisk = 8;
dcSubstDrive = 9;
dcUnknownDisk = 10;
dcInvalidDrive = 11;
type PDrive = ^TDrive;
TDrive = object(TObject)
Drv : Char;
constructor Init( ADrv:Char );
constructor InitProgramDrive;
constructor InitCurrentDrive;
constructor InitBootDrive;
function GetCode:Byte; virtual;
function GetPlace:Longint; virtual;
function GetSize:Longint; virtual;
function GetLabel:PathStr; virtual;
function GetClass:Word; virtual;
function Exists:Boolean; virtual;
function IsClosed:Boolean; virtual;
function IsOnNet:Boolean; virtual;
procedure Reset; virtual;
end;